home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / text4.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  527 b   |  16 lines
  1. ;;;  A basic text widget, with basic text tagging
  2.  
  3. (text '.text :yscrollcommand (lambda l (apply .scroll 'set l)) :wrap "word")
  4. (scrollbar '.scroll :relief "flat" :command (lambda l (apply l .text 'yview l)))
  5.  
  6. (pack .scroll :side "right" :fill "y")
  7. (pack .text :expand #t :fill "both")
  8.  
  9. (.text 'insert 'current 
  10. "This is a text widget, with some tagged text:\n\n\n\n
  11. Some tagged text.")
  12.  
  13. (.text 'tag 'configure 'footag :relief "raised" :borderwidth 3 :background "white")
  14. (.text 'tag 'add 'footag "end-1l linestart" "end-1c")
  15.  
  16.